From: Camm Maguire <camm@debian.org>
Date: Tue, 3 Mar 2026 12:43:37 +0000 (+0000)
Subject: [PATCH] <short summary of the patch>
X-Git-Tag: archive/raspbian/2.6.14-21+rpi1^2~2
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/%22mailto:mocancezar%40gmail.com//%22mailto:i18n-csb%40linuxcsb.org/%22/%22http:/www.example.com/%22mailto:mocancezar%40gmail.com/%22mailto:i18n-csb%40linuxcsb.org/%22?a=commitdiff_plain;h=5de7045c8fa3c7df07c5ddf2e165e096a18b9963;p=gcl.git

[PATCH] <short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.


Gbp-Pq: Name Version_2_6_15pre19
---

diff --git a/cmpnew/gcl_cmpfun.lsp b/cmpnew/gcl_cmpfun.lsp
index 73045687..144f72e3 100755
--- a/cmpnew/gcl_cmpfun.lsp
+++ b/cmpnew/gcl_cmpfun.lsp
@@ -944,7 +944,7 @@
 
 (defun c2gethash (args)
   (cond ((member *value-to-go* '(top return))
-	 (let* ((nargs (inline-args args '(t t)))
+	 (let* ((nargs (inline-args args '(t t t)))
 		(base *vs*)(*vs* *vs*)
 		(r (cdr (vs-push)))(f (cdr (vs-push))))
 	   (wt-nl "{ struct htent *_z=gethash" (if *safe-compile* "_with_check" "") "(" (car nargs) "," (cadr nargs) ");")
@@ -956,10 +956,11 @@
 	   (wt-nl "base[" f "]=Ct;")
 	   (wt-nl "}}")
 	   (wt-nl "vs_top=(vs_base=base+" base ")+" (- *vs* base) ";")
-	   (unwind-exit 'fun-val nil (cons 'values 2))))
+	   (unwind-exit 'fun-val nil (cons 'values 2))
+	   (close-inline-blocks)))
 	((let ((*inline-blocks* 0)
 	       (*restore-avma*  *restore-avma*)
-	       (fd `((t t) t #.(flags rfa) 
+	       (fd `((t t t) t #.(flags rfa)
 		     ,(concatenate 'string
 				   "({struct htent *_z=gethash"
 				   (if *safe-compile* "_with_check" "")
diff --git a/git.tag b/git.tag
index ae0d68f3..07737b03 100644
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre18"
+"Version_2_6_15pre19"